home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
Recent1
/
Filer4_01.lha
/
Filer
/
Rexx
/
PutFiles.filer
< prev
next >
Wrap
Text File
|
1995-04-02
|
1KB
|
64 lines
/*
$VER: PutFiles.filer 2.1 (2.4.95)
Author:
Matthias Scheler (tron@lyssa.pb.owl.de)
Function:
All selected files in the active directory listview will be transfered
via DNet using "putfiles".
History:
2.1 removed unnecessary ADDRESS 'FilerRexx'
Requires:
DNet up and running
putfiles
Call:
PutFiles
Example for "Filer.RC":
BUTTON ...,...,"PutFiles","RX PutFiles"
*/
OPTIONS RESULTS
GETSOURCEPATH
IF RESULT="RESULT" THEN EXIT 5
SourceDir=RESULT
LOCKFILER
IF RESULT="RESULT" THEN EXIT 5
Key=Result
PANEL OFF
'STATUS DNet file transfer'
GETNUMENTRIES
Num=RESULT
DO Index=1 TO Num
GETNAME Index
Data=RESULT
Name=SUBSTR(Data,2)
IF RIGHT(SourceDir,1)=":" THEN SourceName=SourceDir||Name
ELSE SourceName=SourceDir||"/"||Name
IF LEFT(Data,1)="f" THEN
DO
ADDRESS 'COMMAND' 'putfiles "'||SourceName||'"'
TOGGLEENTRY Index
'HISTORY "'||SourceName||'" transfered via DNet.'
END
END
'STATUS Operation finished !'
PANEL ON
UNLOCKFILER Key